← Index
NYTProf Performance Profile   
For ../prof.pl
  Run on Wed Dec 14 15:57:08 2022
Reported on Wed Dec 14 16:00:37 2022

Filename(eval 421)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
StatementsExecuted 17 statements in 117µs
Eval Invoked At/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11115µs85µsType::Tiny::::__ANON__[:16]Type::Tiny::__ANON__[:16]
1117µs7µsType::Tiny::::BEGIN@9.322Type::Tiny::BEGIN@9.322
1116µs20µsType::Tiny::::BEGIN@16.323Type::Tiny::BEGIN@16.323
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1{
222µs my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
311µs my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4 package Type::Tiny;
5
# spent 85µs (15+70) within Type::Tiny::__ANON__[(eval 421)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]:16] which was called: # once (15µs+70µs) by JSON::Schema::Modern::add_vocabulary at line 177 of Sub/Defer.pm
$$_UNQUOTED = sub {
6 ($_QUOTED,$_UNQUOTED) if 0;
7# BEGIN quote_sub PRELUDE
8package Type::Tiny;
9
# spent 7µs within Type::Tiny::BEGIN@9.322 which was called: # once (7µs+0s) by Sub::Quote::_clean_eval at line 14
BEGIN {
1010s $^H = 1762;
1111µs ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
1213µs %^H = (
13 );
14118µs17µs}
# spent 7µs making 1 call to Type::Tiny::BEGIN@9.322
15# END quote_sub PRELUDE
161088µs5104µs
# spent 20µs (6+14) within Type::Tiny::BEGIN@16.323 which was called: # once (6µs+14µs) by Sub::Quote::_clean_eval at line 16
do { no warnings "void"; package Type::Tiny; (((do { package Type::Tiny; defined($_[0]) and do { ref(\$_[0]) eq 'SCALAR' or ref(\(my $val = $_[0])) eq 'SCALAR' } }) && (do { local $_ = $_[0]; my $uri = Mojo::URL->new($_); $uri->is_abs && !defined $uri->fragment }))) or Type::Tiny::_failed_check(82, "__ANON__", $_[0], ); $_[0] }; };
# spent 65µs making 1 call to Mojo::URL::new # spent 20µs making 1 call to Type::Tiny::BEGIN@16.323 # spent 14µs making 1 call to warnings::unimport # spent 3µs making 1 call to Mojo::URL::is_abs # spent 2µs making 1 call to Mojo::URL::fragment
17}
1814µs1;
19
20;